diff <- c(4.81351, .8874254, -3.004407)
upper <- c( 8.457238,   2.725881, .0975221)
lower <- c( 1.169781, -.9510299, -6.106336)


dev.new(width = 7, height = 5)
plot(1:3, diff, main = "Executive Order Usage\n Divided Government and Rule Review", 
	xaxt = "n", ylim = c(-7, 9), xlim = c(0.5, 3.5), 
	xlab = "",
	ylab = "Difference between Divided and Unified Government", pch = 16, cex = 2, axes = F)

segments(x0 = 1:3, x1 = 1:3, y0 = lower, y1 = upper, lwd = 1.5)

axis(1, labels = c("No Rule Review", "Review\nwithout Suspension", "Review\nwith Suspension"), at = 1:3, tick = F, cex.axis = .8)
axis(2, at = seq(-7, 9, 2), las = 2, cex.axis = 1)
abline(h = 0, lty = 2)
box()
